home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -serious- / misc / simplefind3 / install next >
Text File  |  1999-09-06  |  18KB  |  476 lines
  1.  
  2.  
  3. ; $VER: Install 1.0 (26.07.99)
  4. ; Installation-Script of SimpleFind
  5.  
  6. ; ----- German string section -----
  7.  
  8. (set #language (getenv("language")))
  9. (if( <> (strlen #language) 0)
  10. (
  11.   (set @language #language)
  12. ))
  13.  
  14. (if (= @language "deutsch")
  15. (
  16. (set #wrongversion
  17. (cat "Achtung! Es ist eine alte Version des Programmes 'Installer' "
  18.      "auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer 43.3.\n\n"
  19.      "Bitte überprüfen Sie Ihre Konfiguration!"
  20. ))
  21.  
  22. (set #nocopyicon-text
  23. (cat "Das Programm IconCopy wurde nicht gefunden!\n"
  24.      "Es befindet sich normalerweise mit im SimpleFind3 Archiv."))
  25.  
  26. (set #welcome "Willkommen zur Installation von SimpleFind3!")
  27. (set #kind-request "Soll SimpleFind3 in ein einziges Verzeichnis installiert werden (empfohlen)?")
  28. (set #singledir-request "Wohin soll SimpleFind3 installiert werden?\n(ein Verzeichnis 'SimpleFind3' wird angelegt, wenn nötig)")
  29. (set #lang-request "Welche Sprachen sollen installiert werden?\n(Englisch ist eingebaut)");
  30. (set #guide-request "Welche Versionen der Dokumentation soll installiert werden?")
  31. (set #arexx-request "Sollen die mitgelieferten ARexx Skripte installiert werden?")
  32. (set #logos-request "Sollen die mitgelieferten Logos installiert werden?")
  33. (set #iconset-request "Welches Icon Set soll installiert werden?")
  34. (set #iconset-amwb "Alternativ MagicWB")
  35. (set #copysf-request "Kopiere SimpleFind3 Dateien")
  36. (set #copyarexx-request "Kopiere ARexx Skripte")
  37. (set #copylogos-request "Kopiere Logos")
  38. (set #standarticon-text "Installiere Standart-4-Farb-Icons...")
  39. (set #mwbicon-text "Installiere MagicWB Icons...")
  40. (set #amwbicon-text "Installiere Alternativ MagicWB Icons...")
  41. (set #glowicon-text "Installiere Glow Icons...")
  42.  
  43. (set #startup-request
  44. (cat "Um SimpleFind leichter von der Shell aus zu starten, sollte ein "
  45.      "Pfad in der User-Startup auf das SimpleFind3 Verzeichnis eingerichtet werden."
  46.      "\n\nPath \"%s\" ADD\n\nSoll das Installationsprogramm diesen Vorgang tun?"))
  47.  
  48. )
  49.  
  50. ; ----- Spanish string section -----
  51.  
  52. (if (= @language "español")
  53. (
  54.  
  55. (set #wrongversion
  56. (cat "Tiene una versión antigua del programa 'Installer' "
  57.      "en su Amiga!\n\nEste Script necesita, al menos, la versión 43.3.\n\n"
  58.      "Por favor, verifique su configuración!"
  59. ))
  60.  
  61. (set #nocopyicon-text 
  62. (cat "No puedo encontrar el programa IconCopy!\n"
  63.      " Normalmente se entrega con el archivo de SimpleFind."))
  64.  
  65. (set #welcome "Bienvenido a la instalación de SimpleFind!")
  66. (set #kind-request "Quiere que SimpleFind se instale en un Subdirectorio? (recomendado)")
  67. (set #singledir-request "Donde quiere instalar SimpleFind?\n(Se creará un directorio llamado SimpleFind, si no existe)")
  68. (set #lang-request "Qué lenguajes desea instalar?\n(Ingles por defecto)");
  69. (set #guide-request "Qué documentación quiere instalar?")
  70. (set #arexx-request "Quiere instalar los Scripts ARexx incluidos?")
  71. (set #logos-request "Quiere instalar los logotipos incluidos?")
  72. (set #iconset-request "Qué set de iconos quieres instalar?")
  73. (set #iconset-amwb "MagicWB Alternatívos")
  74. (set #tbi-request "Quiere instalar la titlebar.image?")
  75. (set #tbiold-request "Intaller ha descubierto que hay una antigua versión de titlebar.image instalada en su sistema. Quiere reemplazarla con la nueva versión?")
  76. (set #copysf-request "Copiando Ficheros de SimpleFind")
  77. (set #copyarexx-request "Copiando ARexx Scripts")
  78. (set #copylogos-request "Copiando Logos")
  79. (set #standarticon-text "Instalando set standard de iconos (4 colores)")
  80. (set #mwbicon-text "Instalando iconos MagicWB")
  81. (set #amwbicon-text "Instalando iconos alternbatívos MagicWB")
  82. (set #glowicon-text "Instalando iconos Glow")
  83.  
  84. (set #startup-request
  85. (cat "Para empezar SimpleFind facilmente desde una ventana Shell se debe especificar una ruta"
  86.      "en el fichero User-Startup.\n\nRuta \"%s\" ADD\n\nQuiere que Instaler haga"
  87.      "esto por usted?"))
  88. )
  89.  
  90. ; ----- Croatian string section -----
  91.  
  92. (if (= @language "hrvatski")
  93. (
  94. (set #wrongversion
  95. (cat "Vi imate neku staru verziju programa 'Installer' "
  96.      "na svojoj Amigi!\n\nInstalacijska procedura treba bar Installer 43.3\n\n"
  97.      "Molim vas, provjerite svoju konfiguraciju!"
  98. ))
  99.  
  100. (set #nocopyicon-text
  101. (cat "Ne mogu pronaæi program IconCopy!\n"
  102.      " Obièno je ukljuèena unutar SimpleFind Arhive."))
  103.  
  104. (set #welcome "Dobro Do¹li u SimpleFind Instalaciju!")
  105. (set #kind-request "Da li æe SimpleFind biti instaliran u jedan imenik (preporuèljivo)?")
  106. (set #singledir-request "Gdje ¾elite instalirati SimpleFind?\n(Imenik 'SimpleFind'æe se stvoriti, ako veæ ne postoji)")
  107. (set #lang-request "Koji jezik ¾elite instalirati?\n(Engleski je ugraðen)");
  108. (set #guide-request "Koju Dokumentaciju ¾elite instalirati?")
  109. (set #arexx-request "Da li ¾elite instalirati ukljuèene ARexx Skripte?")
  110. (set #logos-request "Da li æe ukljuèeni Logoi biti instalirani?")
  111. (set #iconset-request "Koji Set Ikona ¾elite instalirati?")
  112. (set #iconset-amwb "Alternativne MagicWB")
  113. (set #tbi-request "Da li æe titlebar.image biti instalirana?")
  114. (set #tbiold-request "Instaler je otkrio da postoji starija inaèica titlebar.image instalirana na va¹em sistemu. Da li da je zamjenimo s novijom inaèicom?")
  115. (set #copysf-request "Kopiram SimpleFind datoteke")
  116. (set #copyarexx-request "Kopiram ARexx Skripte")
  117. (set #copylogos-request "Kopiram Logoe")
  118. (set #standarticon-text "Instaliram Standardne-4-Bojne-Ikone...")
  119. (set #mwbicon-text "Instaliram MagicWB Ikone...")
  120. (set #amwbicon-text "Instaliram Alternativne MagicWB Ikone...")
  121. (set #glowicon-text "Instaliram Glow Ikone...")
  122.  
  123. (set #startup-request
  124. (cat "Da bi lako pokrenuli SimpleFind iz Shell-a, komanda za put bi trebala biti"
  125.      "dodana u User-Startup.\n\nPut\"%s\" ADD\n\nDa li ¾elite"
  126.      "da instaler to napravi za vas?"))
  127.  
  128. )
  129.  
  130. ; ----- English string section -----
  131.  
  132. (
  133. (set #wrongversion
  134. (cat "You have an old version of the program 'Installer' "
  135.      "on your Amiga!\n\nThe installation procedure needs at least Installer 43.3.\n\n"
  136.      "Please check your configuration!"
  137. ))
  138.  
  139. (set #nocopyicon-text 
  140. (cat "Couldn't find the program IconCopy!\n"
  141.      " Usually it is included within the SimpleFind archive."))
  142.  
  143. (set #welcome "Welcome to the the Installation of SimpleFind!")
  144. (set #kind-request "Should SimpleFind be installed in a single directory? (recommened)")
  145. (set #singledir-request "Where should SimpleFind be installed?\n(A directory called SimpleFind is created, if it doesn't exists)")
  146. (set #lang-request "Which languages should be installed?\n(english is built in)");
  147. (set #guide-request "Which documentations should be installed?")
  148. (set #arexx-request "Do you want to install the included ARexx Scripts?")
  149. (set #logos-request "Should the included logos be installed?")
  150. (set #iconset-request "Which icon set should be installed?")
  151. (set #iconset-amwb "Alternate MagicWB")
  152. (set #tbi-request "Should the titlebar.image be installed?")
  153. (set #tbiold-request "Intaller has discovered that there is an older version of the titlebar.image installed on your system. Should it replaced with a newer version?")
  154. (set #copysf-request "Copying SimpleFind files")
  155. (set #copyarexx-request "Copying ARexx Scripts")
  156. (set #copylogos-request "Copying Logos")
  157. (set #standarticon-text "Installing standart 4 color icons now...")
  158. (set #mwbicon-text "Installing MagicWB icons now...")
  159. (set #amwbicon-text "Installing alternate MagicWB icons now...")
  160. (set #glowicon-text "Installing Glow Icons...")
  161.  
  162. (set #startup-request
  163. (cat "To start SimpleFind easily from Shell a path command should be"
  164.      "added in the User-Startup.\n\nPath \"%s\" ADD\n\nDo you want that"
  165.      "the installer do this for you?"))
  166.  
  167. ))))
  168. ; ----------------------------------
  169.  
  170. (set #lang-1 "deutsch")
  171. (set #lang-2 "español")
  172. (set #lang-3 "hrvatski")
  173. (set #lang-4 "nederlands")
  174. (set #lang-5 "norsk")
  175. (set #lang-6 "svenska")
  176.  
  177. (set #guide-1 "deutsch")
  178. (set #guide-2 "english")
  179. (set #guide-3 "español")
  180. (set #guide-4 "nederlands")
  181.  
  182. (procedure P_CopyCatalog #p_lang #p_destdrawer
  183.   (copyfiles
  184.        (help @copyfiles-help)
  185.        (source (tackon "SimpleFind3/Catalogs" #p_lang))
  186.        (dest (tackon #p_destdrawer #p_lang))
  187.        (all)
  188.   )
  189. )
  190.  
  191. (procedure P_CopyGuide #p_lang #p_destdrawer
  192.   (copyfiles (help @copyfiles-help)
  193.              (source (tackon "SimpleFind3/Help" #p_lang))
  194.              (dest (tackon #p_destdrawer #p_lang))
  195.              (all)
  196.   )
  197. )
  198.  
  199.  
  200. (procedure P_BuildIconLine #p_source #p_destdir #p_destname
  201.  ("iconcopy %s \"%s\" check\n" #p_source (tackon #p_destdir #p_destname))
  202. )
  203.  
  204. (procedure P_SingleDrawer
  205.  (set @default-dest (askdir (prompt #singledir-request)
  206.                     (help @askdir-help)
  207.                     (default @default-dest)))
  208.  
  209.  (if (= (fileonly(@default-dest)) "SimpleFind3")
  210.   (set @default-dest (pathonly(@default-dest))))
  211.  
  212.  (set #drawer (tackon @default-dest "SimpleFind3"))
  213.  
  214.  (if (= (exists(#drawer)) 1)
  215.   (if (<> (fileonly(@default-dest)) "SimpleFind3")
  216.    (abort("A programm called SimpleFind3 has been found but no SimpleFind3 drawer"))
  217.   )
  218.  )
  219.  
  220.  (complete 1)
  221.  
  222.  (set #lang (askoptions
  223.             (prompt #lang-request)
  224.             (help @askoptions-help)
  225.             (choices (cat "\x1b[2p" #lang-1) #lang-2 #lang-3 #lang-4 #lang-5 #lang-6)))
  226.  
  227.  (complete 2)
  228.  
  229.  (set #guide (askoptions
  230.             (prompt #guide-request)
  231.             (help @askoptions-help)
  232.             (choices (cat "\x1b[2p" #guide-1) #guide-2 #guide-3 #guide-4)))
  233.  
  234.  (complete 3)
  235.  
  236.  (set #arexx (askbool
  237.              (prompt #arexx-request)
  238.              (help @askbool-help)
  239.              (default 1)))
  240.  
  241.  (complete 4)
  242.  
  243.  (set #logos (askbool
  244.              (prompt #logos-request)
  245.              (help @askbool-help)
  246.              (default 1)))
  247.  
  248.  (complete 5)
  249.  
  250.  (set #iconset (askchoice
  251.              (prompt #iconset-request)
  252.              (help @askchoice-help)
  253.              (choices "\x1b[2pStandart" "MagicWB" #iconset-amwb "GlowIcons" "Alternate GlowIcons")))
  254.  
  255.  (complete 7)
  256.  
  257.  (makedir #drawer)
  258.  
  259.  (complete 10)
  260.  
  261.  (copyfiles (prompt #copysf-request)
  262.           (help @copyfiles-help)
  263.           (source "SimpleFind3")
  264.                (choices "ReadMe" "SimpleFind3")
  265.           (dest #drawer)
  266.           (confirm))
  267.  
  268.  (complete 30)
  269.  
  270.  (if (<> 0 #lang)
  271.  (
  272.   (set #catdrawer (tackon #drawer "Catalogs"))
  273.   (makedir #catdrawer)
  274.  
  275.   (if (<> 0 (bitand #lang 1))  (P_CopyCatalog #lang-1 #catdrawer))
  276.   (if (<> 0 (bitand #lang 2))  (P_CopyCatalog #lang-2 #catdrawer))
  277.   (if (<> 0 (bitand #lang 4))  (P_CopyCatalog #lang-3 #catdrawer))
  278.   (if (<> 0 (bitand #lang 8))  (P_CopyCatalog #lang-4 #catdrawer))
  279.   (if (<> 0 (bitand #lang 16)) (P_CopyCatalog #lang-5 #catdrawer))
  280.   (if (<> 0 (bitand #lang 32)) (P_CopyCatalog #lang-6 #catdrawer))
  281.  ))
  282.  
  283.  (complete 40)
  284.  
  285.  (if (<> 0 #guide)
  286.  (
  287.   (set #guidedrawer (tackon #drawer "Help"))
  288.   (makedir #guidedrawer)
  289.  
  290.   (if (<> 0 (bitand #guide 1)) (P_CopyGuide #guide-1 #guidedrawer))
  291.   (if (<> 0 (bitand #guide 2)) (P_CopyGuide #guide-2 #guidedrawer))
  292.   (if (<> 0 (bitand #guide 4)) (P_CopyGuide #guide-3 #guidedrawer))
  293.   (if (<> 0 (bitand #guide 8)) (P_CopyGuide #guide-4 #guidedrawer))
  294.  )
  295.  )
  296.  
  297.  (complete 55)
  298.  
  299.  
  300.  (if (<> 0 #arexx)
  301.  (
  302.   (copyfiles (prompt #copyarexx-request)
  303.              (help @copyfiles-help)
  304.              (source "SimpleFind3/ARexx")
  305.              (dest (tackon #drawer "ARexx"))
  306.              (all)
  307.              (confirm)
  308.              (infos))
  309.  )
  310.  )
  311.  
  312.  (complete 70)
  313.  
  314.  (if (<> 0 #logos)
  315.  (
  316.   (copyfiles (prompt #copylogos-request)
  317.              (help @copyfiles-help)
  318.              (source "SimpleFind3/Logos")
  319.              (dest (tackon #drawer "Logos"))
  320.              (all)
  321.              (confirm)
  322.              (infos))
  323.  )
  324.  )
  325.  
  326.  (complete 80)
  327.  
  328.  (if (= 0 #iconset)
  329.  (
  330.   (working #standarticon-text)
  331.   (textfile (dest "T:SF3_IconInstallScript")
  332.             (append
  333.      (cat "resident c/iconcopy force\n"
  334.           (P_BuildIconLine "SimpleFind3" (pathonly #drawer) "SimpleFind3")
  335.           (P_BuildIconLine "SimpleFind3/ReadMe" #drawer "ReadMe")
  336.           (P_BuildIconLine "SimpleFind3/SimpleFind3" #drawer "SimpleFind3")
  337.           (P_BuildIconLine "SimpleFind3/Catalogs" #drawer "Catalogs")
  338.           (P_BuildIconLine "SimpleFind3/Help" #drawer "Help")
  339.           (P_BuildIconLine "SimpleFind3/Logos" #drawer "Logos")
  340.           (P_BuildIconLine "SimpleFind3/ARexx" #drawer "ARexx")
  341.           (P_BuildIconLine "SimpleFind3/Help/deutsch" #drawer "Help/deutsch")
  342.           (P_BuildIconLine "SimpleFind3/Help/english" #drawer "Help/english")
  343.           (P_BuildIconLine "SimpleFind3/Help/español" #drawer "Help/español")
  344.           (P_BuildIconLine "SimpleFind3/Help/nederlands" #drawer "Help/nederlands")
  345.           (P_BuildIconLine "SimpleFind3/Help/deutsch/SimpleFind3.guide" #drawer "Help/deutsch/SimpleFind3.guide")
  346.           (P_BuildIconLine "SimpleFind3/Help/deutsch/ARexx.guide" #drawer "Help/deutsch/ARexx.guide")
  347.           (P_BuildIconLine "SimpleFind3/Help/english/SimpleFind3.guide" #drawer "Help/english/SimpleFind3.guide")
  348.           (P_BuildIconLine "SimpleFind3/Help/english/ARexx.guide" #drawer "Help/english/ARexx.guide")
  349.           (P_BuildIconLine "SimpleFind3/Help/español/SimpleFind3.guide" #drawer "Help/español/SimpleFind3.guide")
  350.           (P_BuildIconLine "SimpleFind3/Help/español/ARexx.guide" #drawer "Help/español/ARexx.guide")
  351.           (P_BuildIconLine "SimpleFind3/Help/nederlands/SimpleFind3.guide" #drawer "Help/nederlands/SimpleFind3.guide")
  352.           (P_BuildIconLine "SimpleFind3/Help/nederlands/ARexx.guide" #drawer "Help/nederlands/ARexx.guide")
  353.           "resident iconcopy remove\n"
  354.      )))
  355.  )
  356.  (
  357.   (if (or (= 1 #iconset) (= 2 #iconset))
  358.   (
  359.    (working #mwbicon-text)
  360.  
  361.    (if (= 1 #iconset)
  362.    (
  363.     (set #sficon "SimpleFind3_OM")
  364.    )
  365.    (
  366.     (set #sficon "SimpleFind3_MS")
  367.    ))
  368.  
  369.    (textfile (dest "T:SF3_IconInstallScript")
  370.             (append
  371.      (cat "resident c/iconcopy force\n"
  372.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB" (pathonly #drawer) "SimpleFind3")
  373.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/ReadMe" #drawer "ReadMe")
  374.           (P_BuildIconLine (tackon "SimpleFind3/Icons/MagicWB" #sficon) #drawer "SimpleFind3")
  375.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Catalogs" #drawer "Catalogs")
  376.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Help" #drawer "Help")
  377.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Logos" #drawer "Logos")
  378.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/ARexx" #drawer "ARexx")
  379.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Drawer" #drawer "Help/deutsch")
  380.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Drawer" #drawer "Help/english")
  381.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Drawer" #drawer "Help/español")
  382.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Drawer" #drawer "Help/nederlands")
  383.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/deutsch/SimpleFind3.guide")
  384.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/deutsch/ARexx.guide")
  385.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/english/SimpleFind3.guide")
  386.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/english/ARexx.guide")
  387.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/español/SimpleFind3.guide")
  388.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/español/ARexx.guide")
  389.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/nederlands/SimpleFind3.guide")
  390.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/nederlands/ARexx.guide")
  391.  
  392.           "resident iconcopy remove\n"
  393.      )))
  394.   )
  395.   (
  396.    (working #glowicon-text)
  397.  
  398.    (if (= 3 #iconset)
  399.    (
  400.     (set #sficon "SimpleFind3_JU")
  401.     (set #sfdrw "GlowIcons")
  402.    )
  403.    (
  404.     (set #sficon "SimpleFind3_PV")
  405.     (set #sfdrw "GlowIcons/DrawerSimpleFind")
  406.    ))
  407.  
  408.  
  409.    (textfile (dest "T:SF3_IconInstallScript")
  410.             (append
  411.      (cat "resident c/iconcopy force\n"
  412.           (P_BuildIconLine (tackon "SimpleFind3/Icons" #sfdrw) (pathonly #drawer) "SimpleFind3")
  413.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/ReadMe" #drawer "ReadMe")
  414.           (P_BuildIconLine (tackon "SimpleFind3/Icons/GlowIcons" #sficon) #drawer "SimpleFind3")
  415.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/Catalogs" #drawer "Catalogs")
  416.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/Help" #drawer "Help")
  417.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/Logos" #drawer "Logos")
  418.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/ARexx" #drawer "ARexx")
  419.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/deutsch" #drawer "Help/deutsch")
  420.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/english" #drawer "Help/english")
  421.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/Drawer" #drawer "Help/español")
  422.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/Drawer" #drawer "Help/nederlands")
  423.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.D" #drawer "Help/deutsch/SimpleFind3.guide")
  424.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.D" #drawer "Help/deutsch/ARexx.guide")
  425.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.GB" #drawer "Help/english/SimpleFind3.guide")
  426.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.GB" #drawer "Help/english/ARexx.guide")
  427.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.E(sp)" #drawer "Help/español/SimpleFind3.guide")
  428.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.E(sp)" #drawer "Help/español/ARexx.guide")
  429.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.NL" #drawer "Help/nederlands/SimpleFind3.guide")
  430.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.NL" #drawer "Help/nederlands/ARexx.guide")
  431.           "resident iconcopy remove\n"
  432.      )))
  433.   ))
  434.  ))
  435.  
  436.  (execute "T:SF3_IconInstallScript")
  437.  (delete "T:SF3_IconInstallScript")
  438.  
  439.  (complete 95)
  440.  
  441.  (startup "SimpleFind3"
  442.     (prompt (#startup-request #drawer))
  443.     (command ("Path \"%s\" ADD" #drawer))
  444.     (help @startup-help))
  445.  
  446. )
  447.  
  448. (procedure P_Scattered
  449. )
  450.  
  451. (welcome #welcome)
  452.  
  453. (complete 0)
  454.  
  455. (if (<> (exists "c/IconCopy") 1)
  456. (
  457.  (abort #nocopyicon-text)
  458. ))
  459.  
  460. ;(set #kind (askbool (prompt #kind-request )
  461. ;                     (help @askbool-help)
  462. ;                     (default 1)
  463. ;            )
  464. ;)
  465.  
  466. ;(if (= #kind 1)
  467. ;(
  468.  (P_SingleDrawer)
  469. ;)
  470. ;(
  471. ; (P_Scattered)
  472. ;)
  473. ;)
  474.  
  475. (complete 100)
  476.